home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
twview91.zip
/
CONFIG.INC
< prev
next >
Wrap
Text File
|
1992-03-11
|
721b
|
17 lines
procedure configstuff;
{ procedure essentially from the net }
var
line : string;
begin
writeln('Eventually, there will be several configuration options available.');
writeln('First is the option of monochrome -- if you load GRAPHICS.COM');
writeln('your print screen will work. (Also good for laptop VGA screens.');
write('Do you want a Monochrome display? [N] ');
readln( line );
mono := not ( (line='') or (upcase(line[1])='N'));
writeln('Port displays can have rather full lines: you can switch to');
writeln('compact codes to get more per line.');
write('Do you want compact sector description codes? [N] ');
readln( line );
verbose := (line='') or (upcase(line[1])='N');
end;